home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C++ / Applications / Nuntius 1.2 / src / Nuntius / tools / Mail2News < prev    next >
Encoding:
Text File  |  1994-03-12  |  1.7 KB  |  83 lines  |  [TEXT/MPS ]
  1. # filen med mail skal være en compacted Eudora mailbox
  2.  
  3. if {#} != 2
  4.     echo "Usage: Mail2News MailFile NuntiusName" ∑∑ dev:stderr
  5.     exit
  6. end
  7. set exit 1
  8.  
  9. set mail {1}
  10. set NuntiusName {2}
  11.  
  12. set NuntiusFolder scratch:csm:{NuntiusName}:
  13.  
  14. # Code:
  15. set OldDir "``pwd``"
  16.  
  17. set SlashNuntiusName "`echo {NuntiusName} | tr '.' '/'`"
  18. setfile -c 'MPS ' -t TEXT {mail}
  19. set news {TmpDir}NewsFile
  20. set exit 0
  21. mkdir {NuntiusFolder} ∑∑ dev:null
  22. set exit 1
  23.  
  24.  
  25. StreamEdit ∂
  26.     -e '1,$ Replace / +∞/ ""' ∂
  27.     -e '/•References: / Delete;next' ∂
  28.     -e '/•Message-id: / Print "X-Nuntius-Recent-" . ;Delete;next' ∂
  29.     < {mail} | ∂
  30. tr ∂/∂?∂"∂' ∂∫∂¿∂”∂’ > {news}
  31.  
  32. target {news}
  33. find • {news}
  34. set exit 0
  35. set msgid 1
  36. loop
  37.     echo "@@@@ /usr/spool/news/comp/sys/mac/{SlashNuntiusName} {msgid}∂nMessage-id: <{msgid}>" > {news}.§
  38.     find /∂n∂n/ {news}
  39.     find Δ/•'From ¿¿¿@¿¿¿ '/ {news}
  40.     break if {status} != 0
  41.     ev msgid+=1
  42. end
  43. set exit 1
  44.  
  45. StreamEdit -d ∂
  46.     -e '• Set msgid "ThisWasBad"' ∂
  47.     -e '/•Message-id: ∂<([0-9]+)®1∂>/ Set msgid ®1;next' ∂
  48.     -e '/•Subject: (Re:[ ∂>]*)* *([¬ ]≈)®6 *∞/ Print msgid "†" ®6;next' ∂
  49.     < {news} ∂
  50.     > {tmp}
  51. sort -fs "†" -f 2 -unique -r < {tmp} > {tmp2}
  52.     
  53. target {news}
  54. target {tmp2}
  55. set msgid 1000
  56. find • {tmp2}
  57.  
  58. find • {news}
  59. set exit 0
  60. replace -c ∞ /•([¬:∂n∂ ø]+ (?)«75,85»)®1 / ®1∂n {news}
  61. set exit 1
  62.  
  63. StreamEdit -d ∂
  64.     -e '• Set msgid "ThisWasNotGood"' ∂
  65.     -e '/•Message-id: ∂<([0-9]+)®1∂>/ Set msgid ®1' ∂
  66.     -e "/•([0-9]+)®1∂†(≈)®2/ Print ∂"/'∂" ®2 ∂"'[ ∂t]*∞/ Print 'References: <∂" ®1 ∂">';next∂"" ∂
  67.     < {tmp2} ∂
  68.     > {tmp}
  69.  
  70. # /'ADSP'/ Print 'References: <1234>';next
  71.  
  72.  
  73. StreamEdit ∂
  74.     -e '!/•Subject: / next' ∂
  75.     -s {tmp} ∂
  76.     < {news} ∂
  77.     | ∂
  78. tr ÆØÅæøå∂∫∂¿∂”∂’ '[\]{|}'∂/∂?∂"∂' > {NuntiusFolder}articles
  79. cd {NuntiusFolder}
  80. MakeArticleIndex
  81. setfile -c 'MPS ' q≈
  82. cd {OldDir}
  83.